home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XPUTSTR.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-07  |  589b  |  28 lines
  1. {$IBoDecl}
  2. {$IPutStr}
  3. {$ICenter}
  4. {$ISaves}
  5. {$IRestores}
  6. {$IPutHeap}
  7.  
  8. BEGIN
  9.  
  10.    Mark ( HeapTop );
  11.    New ( page[1] );
  12.    ClrScr;
  13.    for i := 1 to 25 do
  14.       writeln('Using Orthodox methods of screen I/O');
  15.    SaveScreen ( page[1] );
  16.    read;
  17.    for i := 1 to 25 do
  18.       PutStr (h,Center(' Using PutStr with Center function ',40,' '),41,i,112);
  19.    read;
  20.    ClrScr;
  21.    read;
  22.    for i := 1 to 25 do
  23.       PutHeap ( page[1], h,Center(' Used PutHeap and RestoreScreen ',
  24.                 40,' '),41,i,112);
  25.    RestoreScreen ( page[1] );
  26.    Release ( HeapTop );
  27.  
  28. END.